module constant

    implicit none

    real, parameter :: pi = 3.1415926

    real, parameter :: gravit = 9.8

end module constant
